      * COBOL UNIT CALLING INTERFACE FOR ASSERT PHASE
      * FILE : CBUC0002[.CPY]

      * THIS COPYBOOK DESCRIBES THE INFORMATION PROVIDED BY A USER
      * PROGRAM TO COBOLUNIT ASSERT PROGRAM

       01  CBU-ASSERT-CALL-INTERFACE.

      * INPUT DATA

           05 CBU-ASSERT                PIC X(8)     VALUE "CBUP0002".
           05 CBU-ASSERT-NAME           PIC X(20)    VALUE SPACE.
           05 CBU-ASSERT-TYPE           PIC X(3)     VALUE SPACE.
              88 CBU-ASSERT-EQUAL                    VALUE "=".
              88 CBU-ASSERT-NOT-EQUAL                VALUE "<>".
              88 CBU-ASSERT-GT                       VALUE ">".
              88 CBU-ASSERT-GE                       VALUE ">=".
              88 CBU-ASSERT-LT                       VALUE "<".
              88 CBU-ASSERT-LE                       VALUE "<=".

           05 CBU-ASSERT-DATA-TYPE      PIC X(3).
              88 CBU-ASSERT-INT                      VALUE "INT".
              88 CBU-ASSERT-STRING                   VALUE "STR".
              88 CBU-ASSERT-DECIMAL                  VALUE "DEC".
              88 CBU-ASSERT-BOOLEAN                  VALUE "BOO".

           05 CBU-ASSERT-EXPECTED-VAL   PIC X(1024)  VALUE SPACE.
           05 CBU-ASSERT-EXPECTED-INT
                 REDEFINES CBU-ASSERT-EXPECTED-VAL
                                        PIC S9(9) COMP.
           05 CBU-ASSERT-EXPECTED-DEC
                 REDEFINES CBU-ASSERT-EXPECTED-VAL
                                        PIC S9(9)V9(5) COMP-3.
           05 CBU-ASSERT-EXPECTED-BOO
                 REDEFINES CBU-ASSERT-EXPECTED-VAL
                                        PIC X(5).
                 88 CBU-ASSERT-EXPECTED-TRUE         VALUE "TRUE".
                 88 CBU-ASSERT-EXPECTED-FALSE        VALUE "FALSE".

           05 CBU-ASSERT-ACTUAL-VAL     PIC X(1024)  VALUE SPACE.
           05 CBU-ASSERT-ACTUAL-INT
                 REDEFINES CBU-ASSERT-ACTUAL-VAL
                                        PIC S9(9) COMP.
           05 CBU-ASSERT-ACTUAL-DEC
                 REDEFINES CBU-ASSERT-ACTUAL-VAL
                                        PIC S9(9)V9(5) COMP-3.
           05 CBU-ASSERT-ACTUAL-BOO
                 REDEFINES CBU-ASSERT-ACTUAL-VAL
                                      PIC X(5).
                 88 CBU-ASSERT-ACTUAL-TRUE           VALUE "TRUE".
                 88 CBU-ASSERT-ACTUAL-FALSE          VALUE "FALSE".

      * OUTPUT DATA
           05 CBU-ASSERT-RETURN-CODE    PIC X(1)     VALUE SPACE.
              88 CBU-ASSERT-NO-ERROR                 VALUE SPACE.
              88 CBU-ASSERT-WARNING                  VALUE "W".
              88 CBU-ASSERT-ERROR                    VALUE "E".
              88 CBU-ASSERT-SEVERE                   VALUE "S".
           05 CBU-ASSERT-MESSAGE        PIC X(100)   VALUE SPACE.
